home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / ring thing (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  382b  |  10 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15:rem clear sound chip, set volume
  3. 20 poke54277,8:poke54278,255:poke54276,23:rem envelope and waveform
  4. 30 poke54287,40:rem voice 3 freq. controls main pitch
  5. 40 forz=1to4:rem z is no. of cycles
  6. 50 forf1=255to0step-6:poke54273,f1:nextf1:rem step size controls down speed
  7. 60 forf1=0to255step20:poke54273,f1:nextf1:nextz:rem step size controls up speed
  8. 70 poke54278,15:rem stops sound
  9. 80 list
  10.